home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / eulisp / you-075a.lha / you-075a / vectors.h < prev    next >
C/C++ Source or Header  |  1992-06-18  |  884b  |  23 lines
  1. /* ******************************************************************** */
  2. /*  vectors.h        Copyright (C) Codemist and University of Bath 1989 */
  3. /*                                                                      */
  4. /* Vector module prototypes                                                */
  5. /* ******************************************************************** */
  6.  
  7. /*
  8.  * Change Log:
  9.  *   Version 1, November 1989
  10.  */
  11.  
  12. extern LispObject Fn_vectorp( LispObject* );
  13. extern LispObject Fn_make_vector( LispObject* );
  14. extern LispObject Fn_vector_length( LispObject* );
  15. extern LispObject Fn_vector_ref( LispObject* );
  16. extern LispObject Fn_vector_ref_updator(LispObject*);
  17. extern LispObject Fn_vector( LispObject* );
  18.  
  19. void initialise_vectors(LispObject*);
  20.  
  21. #define vecrefupdator(v,i,obj) (*(&(v->VECTOR.base)+i)=obj) /* For hack use */
  22. #define vecref(v,i) (*(&(v->VECTOR.base)+i))
  23.